home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_091 / adlrun / adlerr.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  2KB  |  70 lines
  1. #include <stdio.h>
  2.  
  3. #include "adltypes.h"
  4. #include "vstring.h"
  5.  
  6. int16
  7.     foundfile,
  8.     filenum,
  9.     linenum;
  10. extern int16
  11.     ip;
  12.  
  13.  
  14. error( num )
  15. int
  16.     num;
  17. {
  18. #if DEBUG
  19.     char
  20.     *msg;
  21.     switch( num ) {
  22.     case 1 : msg = "Divide by zero";            break;
  23.     case 2 : msg = "Too few arguments";            break;
  24.     case 3 : msg = "Illegal builtin routine";        break;
  25.     case 4 : msg = "Illegal routine for $sdem";        break;
  26.     case 5 : msg = "Illegal routine for $sfus";        break;
  27.     case 6 : msg = "Illegal routine for $prompt";        break;
  28.     case 7 : msg = "Illegal object for $actor";        break;
  29.     case 8 : msg = "Stack overflow";            break;
  30.     case 9 : msg = "Stack underflow";            break;
  31.     case 10: msg = "Illegal routine call";            break;
  32.     case 11: msg = "Illegal instruction";            break;
  33.     case 12: msg = "Illegal routine call";            break;
  34.     case 13: msg = "Illegal global for $glob";        break;
  35.     case 14: msg = "Illegal global for $setg";        break;
  36.     case 15: msg = "Illegal object for $setp";        break;
  37.     case 16: msg = "Illegal propnum for $setp";        break;
  38.     case 17: msg = "Illegal object for $move";        break;
  39.     case 18: msg = "Illegal object for $prop";        break;
  40.     case 19: msg = "Illegal promnum for $prop";        break;
  41.     case 20: msg = "Illegal verb for $vset";        break;
  42.     case 21: msg = "Illegal propnum for $vset";        break;
  43.     case 22: msg = "Illegal verb for $vprop";        break;
  44.     case 23: msg = "Illegal propnum for $vprop";        break;
  45.     case 24: msg = "Illegal parameter for $spec";        break;
  46.     case 25: msg = "Illegal object for $name";        break;
  47.     case 26: msg = "Illegal rout for $miss";        break;
  48.     case 27: msg = "Out of memory";                break;
  49.     case 28: msg = "Illegal exitcode";            break;
  50.     case 29: msg = "Insufficient terminal definition";    break;
  51.     case 30: msg = "Illegal object for $sfus";        break;
  52.     case 31: msg = "Illegal actor for $spec 11";        break;
  53.     case 32: msg = "Unable to open tty";            break;
  54.     case 33: msg = "Illegal actor for $spec 12";        break;
  55.     default: msg = "Unknown error number";
  56.     }
  57.     fputs( msg, stderr );
  58. #else
  59.     fprintf( stderr, "Error #%d", num );
  60. #endif
  61.     if( foundfile )
  62.     fprintf( stderr, ", file \"%s\", line %d",
  63.         virtstr( filenum ), linenum );
  64.     fprintf( stderr, ", ip = %ld\n", (long)ip );
  65.     head_term();
  66.     exit( num );
  67. }
  68.  
  69. /*** EOF adlerr.c ***/
  70.